(setf test-array-1 (make-array 10 :initial-element 5)) 

(make-array 10 :initial-element 5)

(make-array 40 :initial-element nil)

(defstruct point
  x
  y)

(setf p (make-point :x 0 :y 0))

(point-x p)

(make-array 1000 :initial-element 1)
